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A. fan TO TESTED WITH STANDARD FORMAT DECTAPE. SET TO 
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SECTION 7.1 GIVES A COMPLETE EXPLANATION OF SR OPTIONS. 


t 4 ar ve THe Ere of Ee Steer TELETYPE BELL RINGS ONCE, AND 


J. REFER TO SECTION 6. IF PRROR PRINTOUTS OCCUR. 

EXECUTION TIME: 

A. ONE NORMAL ERROR FREE paee TAKES APPROX agp 1_ HOUR. 

B. ONE SINGLE ITERATION PASS (SR11=1) TAKES ABOUT S MINUTES. 


RESTART PROCEDURE 
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PROGRAM AND/OR OPERATOR ACTION 
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ERRORS ARE REPORTED IN THIS PROGRAM BY THE FOLLOWING METHODS: 


A. UNCONDITIONAL ERROR HALTS, OR 
B. ERROR PRINTOUT FOLLOWED BY OPTIONAL ERROR HALT. 
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6.1 UNCONDITIONAL ERROR HALTS 


AN UNCONDITIONAL ERROR HALT WILL ey AT THE ADORESSES LISTED 


TS FianGrehneD To" Une AN UNEXPECTED AREA BE THEN GODOGE AND 00156. 


INSTRUCTION TRAP 
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E 


caPaRST eta a 1 SESE 


RROR HALT FAIL 


E 
Tnolcarin i ene aS: aOR FORT UN fecey SROGRAR raqLURE in 


Tie PRRoner AaSumea THal. TR OPERATING COND! 





. GOl 


mcr 1 3011046) 31-AUG-77 14:11 PAGE & 


ERROR PRINTOUTS 


BEE TEEN BUTE MEER RENNE SERTEMENTS AN ERROR-PRINTOUT LOOKS AS FOLLOWS: 
T XXX ae oe NT 2222. 


iP fo 2. 2 ADDITIONAL CLINGS OF ‘Ree thebRRation. 


WHERE : 

T XXX IS THE NUMBER OF FAILING ROUTINE (OCTAL), 

PC OYYYYY IS THE ADDRESS OF ERROR CALL, 

ICNT 2222. IS THE ITERATION COUNT AT TIME OF FAILURE. 

XFRCNT XXXXXX YYYYYY AND RADDR 222Z22Z INDICATE THE PARAMETERS 


IN USE AT TIME OF FAILURE. 
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TESTING TC11 AT NON-STANDARD ADDRESSES AND/OR VECTORS 


waa FeSL WEoAbbde SL PORE Bel PRETEND 
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8. Te cat HF one pee BNE Boi ge4 NON ee ADDRESSES, CHANGE 


C. PROCEED TO USE THE PROGRAM, OR 
” th RUBCSOLUTE FORMAT TO HAVE NEP Tape fin AT REFLe geen 


E. DUMP OUT ONLY LOCATIONS 001004 THROUGH 9010¢ 024 IN ABSOLUTE 
FORMAT, AND LOAD IT ALSO AFTER LOADING MAIN PROGRAM. 


DESCRIPTION 


eee ee eo me ; 


THIS PROGRAM IS ORGANIZED INTO THREE MAIN SECTIONS: 
A. CONTROL ROUTINE, 

B. TEST ROUTINES 

C. COMMON OUTINES 

CONTROL ROUTINE 


1 CONTROL ROUTINE ASSUMES CONTROL WHEN THE PROGRAM IS STARTED. 


T HAS THE FOLLOWING FUNCTIONS: 


A. CONTROLS SEQUENCE OF TEST RCUTINES. 
B. HONORS AND ACTS ON SR OPTIONS. 
T 


HE CONTROL b SO TENE IS CALLED FROM A TEST ROUTINE BY THE 
SCOPE” STATEMENT. 
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8.2 TEST ROUTINES 


a. 3 ACTUAL TESTING +5 att fare Y A SET OF TEST ROUTINES THAT 
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ToS - TCll TEST S 
OZTCED.P11 


BREBSERRERE ESS 


SEESLEESLOCLLSLCL£ 
O ban bs = be be he pe he 
WON CWO 


~o 


422 





31-AUG-77 14:08 


MACY11 30‘ 1046) 


Ol 


31-AUG-77 14:11 PAGE 10 


a 


32 UNASSIGNED TRAP 
MACHER: ae :SP OVERFLOW, BUS ERROR TRAP 
ater SRESERVED INSTRUCTION TRAP 
TRCV:  §Vv§S : TRACE TRAP 
BRTY? 
10Tv: SSS ; TRAP TO CALL IOx 
PRTY? 
e SPOWER FAIL TRAP 
EMTV: fd ant ;EMT TRAP 
TRPV: TRAP TRAP. SIMILAR TO EMT 


HROUGH 76 ARE FILLED WITH .+2 AND HALT EXCEPT LOC 46 AND Se. 
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.=1000 
t JMP ' GETRDY 
teen: 55808 lk 
nf 17734 
TeBt: 77 8 
TCVTR: 14 
TEL VL: : ye. 
1a: st p98ee 
ICTR: N 
ICNT: N 
KSTART: 
Pronne’ “ 
NXT eT: OPEN 
TST: N 
RA: N 
CCMT: N 
TCSTT: N 
TCOTT: N 
TCWCT: N 
TCBAT: N 
BLKRGQ: N 
BLKR@S: OPEN 
UNIT: N 
UNITN: N 
UNITS: N 
co 3 N 
TEMP: OPEN 
FPC: N 
LIM: N 
M:. N 
BFS 3 N 
xXF Opn: OPEN 
H N 
VFBLKN: OPEN 
VRBLKN: OPEN 
RRLIMN: § 
MTTAB: 
WORD CHAINN 
WOR 2tae'T 
WOR vO3 
WORD RSO3 
WOR avce 
.WOR so 
.WORD SVOSS 
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SEG O0le 


;GO TO START OF PROGRAM. 
Fett eae INITIAL PRINTOUTS. 


ett t earnest: te, 
iT i Br eet ER. 
u A Nee. LEVEL. * 


f : eu ut ge tow. 


URRENT SC 


;POINTER FOR EMT CALL SCOP 

;POINTER FOR EMT CALL SRESET 
;POINTER FOR EMT CALL SAVO 

SPOUT R FOR EMT CALL RSTO3 
;PO NTER EMT SAVOS 
;POINTER FOR EMT CALL RSTOS 
;POINTER FOR EMT CALL SAVOSS 
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eCODE Ne aTceA 3 
TCMC 
oun DATA COMMAND. 
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ip) a "AVAILABLE? 


ere NON AVAILABLE MESSAGE. 
la arch ie itt? OR SELE ERROR? 


untagct, UNITS ;DESELECT NON AVAILABLE TRANSPORT. 
;TYPE UNITS TO BE TESTED. 


ao etka Ser uP TO 7 UNITS. 
SRT TR RO BN Mur | agro 
GTAB( Ob), GTAPES tae ASCII # FOR GOOD TAPE. 
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; TYPE @ OF UNIT TO TEST. 
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: Na ; TE TO NEXT ORIVE. 
— TRA ; ext a DRIVES” 
have F NOT. 
STRTA: i YER: UNIT SELECT INSTRUCTIONS. 
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swatT r98 R . 
Pi hese synt rs aacecteo. 
eueeeyerene, ES OR SHE TS vos 
Sspoot : ih be STACK. 
: JP lament VECTOR TO 0. 
ae Tpenere 
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35 
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ROU 
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i Bo 
(RST Rour 
L 1 ROUTINE: 
R RTN SELECTED. 


NESPRERRERE Se GRBS INCE TEOEED 


humR TO "NEXT" ROUTINE. 
> TINE ITCH 
aa iM NE SWITCH IS SET. 
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177777 177122 GTROYD: 
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RR 
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ae ee be Be 2 hs = = Be BB eb be eB Be he fe he Be hs he Bo PP Po PO BP oh Pe Pe 


RRPGRESSEGRRIOS BOB ORR IER Bld lols Inco bonne bee Bae ro EIee 5. 


1017 
7 
50 AINCRT 
OO HAL T H omer eT. 
OO coentees Br 7 GETRDY ig ART OVER. 
“T ‘poe . REST TACK. 
vs 73 001000 be ie vex fe nt renergn COUNT. 
601744 177060 OM CNT ; T Ne NT TO -1. 
2 7 040000 175612 CHNAC: es IT14,SR ; JF TION. 
‘ CHNAB : c T : TINE. ‘ 
: : T : NH T TCH 
754 baabep 175576 CHINA: 17 ee ch is mileti rt natin ss 
000 cane HNAB ; HIE COUNT NOT ape 
002000. 175560 CHNAA: r 8B81T10,SR ; fe hol a ET? (SRIO) 
) TNNO, > TEST # TO RO. p 
ae AT coe en TROBLIMESEDR Mat, TEST. iy LiGHTS. 
4 NB: § 8 
obe0e& at a BAe GETROY ; BRANCH F SELECT RTN SW SET 
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777 = TST T ? 

gehts Macias rhalX"® ibRAnci OF NOT LAST TEST. 

208 TYPE : TYPE ENO BELL. 

at 000042 CHNC: Bi ass RO GET CONTENTS OF 42. 

>} T T ‘. 

13 voor: FRET pe cay ~~ acta 

216 reais ig ee : ; at FOR TESTING? 

71 : TROY ; 

718 1 PeRGs v NXTST.RS in rte ek 19 RS. 

7 1767 ( d+, RTRIN ; 

7 1767 v (5) 4, WxTS ; “next e “ROUTINE. 

> 17671 Vv ( 24; 1 ; We oe 

7 176714 MOV (5)4'SCOPTR ; TRY POINTER. 

753 OBA a FORWOA: MOV RS. URTst ; WOW CURREN NT TEST TO CURTST. 

2 1 430 nov R HNO, SR ba SP f rae 

7 -EMT INTERPRETER TINE. P = ’ 

38 000002 ENTINT: By Be 5 | 

731 Vv -(0)'RO ire my CALL. 

335 171122 v ee “FORM EMT ADOR. 

734 Sell Regs 07 0 5s ;GO TO EMT RTN. RESTORE RO. 

> 777 vO3: ( a THe. : 

a3 177766 sv03 GeSesciB- (8° nove Pc UpsTARK. 

z 000046 v ti . ¢ 


iSUB_10 SAVE rece QS.ANO PLACE EMT PC IN RS. 


B 


Be 


BLECR? GO0RNO 000036 


a 


jRESTORE GS 0 TO 3 SUBROUTINE. 


743 sates sige "° Be rece a, 
74S 1 i cums 2 A: By (6)4)=14, (6) ;MOVE PC AND PSW UPSTACK. 
a” i 1777 rey (G+) cis. (6) 
ro!) 1 Ra’ <6) 
749 1 SVOSB: MOV R3.- (8) 
751 1846 Vv »7(6) 
a as the ue 
1 n Vv RO,-(6) 
4 SsvOSC: R ;RTI OR NOP. 
755 016605 000020 MOV Ap. (6) RS sEMT PC TO RS. 
ie wes ‘a 
4 RTI sEXIT. 
760 Roo POPSP 

761 RESSPS BT8e6 M ts . (6)+,RO RESTORE REGS O TO 4. 

762 O0eebE 012601 MOV (6)¢ Ri 
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es Vv (6)¢, 
oa ever. ras i Vv (B33 
765 O0ce74 O16646 177766 MO -10. (6), -(6) sMOVE PC AND PSW DOWN STACK. 
766 177766 mo -10.(6),- 
8 010566 000020 Asb2..1° cet a restbee Ec $08 18 as CONTENTS. 
383 . to T Read 6 #3 Ss. 
77 ) : P 2 
77 1 Vv (6)4+,RO 
77. 1 Vv (6)4,R 
774 1 Vv (6)4:R 
778 1 Vv (6)4,R 
aa 1 Vv (6)4,R4 
1 Vv (6)4,.RS 
778 1 177762 v -14. t6),-(6) ;MOVE PC AND PSW DOWNSTACK. 
779 177762 nov “14. (6),-(6) 
780 RTI EXIT. 
1 17777 SvSS: MOV (6)4,-6(6) :PC AND PSW UPSTACK. 
1 17777 nov (B)¢ -6(6) 
1 v RS,-l6) : SAVE RS. 
7e4 10446 MOV . R4'-(6) ; R4. 
000010 Vv (6), RS ; nT pc T RS. 
re Bet BRT BE 19 BS 
aoe RTI lp RATT EDT SyR. 
58°. ya* 
78 wah 000010 RSSS: Vv RS,8.(6) MT 
5a5 308 37% ice Ponsre (6)+ T 
583 Dosa 13608 RS FS TRESTORE Ae 
Pay 16646 177772 MOV -6( 
79S gpe410 177772 v -6(6)' ot 
7% 14 R pExtt 
797 jROUTINE 7 13 0 SET TC1l INTERRUPT VECTOR AND PRIORITY 
7 16701 176372 T VTR,RI ¢T 
7 foes Ofe7ai ala) a 
801 O02426 0167 1 176366 MOV tev, (1)+ :SET TC1l 
pe Bids Rayos 
: ROUT INE 16 1s RESET. 
805 3% o1004% SRSETT: MOV =56) :P H RO. 
BOG 700 oS2S25 MOV #52525, RO iD A TO RQ. 
00 COM ope (R 9). 
808 1 177770 MOV RO, SRSETT+4 i de Re RSET 
809 RESET (RO} Is 
210 4 nov (6)+,RO VERE 
glk RTI PLAYED. EXIT. 
1 *COMMON HALT ROUTINE 
giz Bosieg =aonooe CHLT: Reyes aw 0 DEVELOP ADOR OF C 
bis Beers Si8se8 ry, 2 FRE POBBOR SERS: Lore, 
£16 10400 RSTOSS 
£17 90e470 O00002 RTI sEXIT. 
ele ; CONDITIONAL ERROR HALT ROUTINE. 
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EHLT: 


pat? 


BEA 


RY, FPC 


Sug a8 ERRE 


WADOR 
AWADOR 


SSE NENLADY BBSRReo 


IN baTA LIGHTS. 


‘BEYERHINE CALLING ROOF. 


;CONVERT CALLING ADDR TO ASCII. 
;CONVERT TEST # TO ASCII. 
;CONVERT ICNT TO DECIMAL ASCII. 
;CONVERT UNIT # TO ASCII. 
:CONVERT BLKRQ TO ASCII. 

;CONVERT TCST TO ASCII. 

;CONVERT TCCM TO ASCII. 

;CONVERT TCWC TO ASCII. 

:;CONVERT TCBA TO ASCII. 

;CONVERT TRANSFER COUNT TO ASCII. 


;CONVERT WRITE ADOR TO ASCII. 


L 2 ‘af 
;CONVERT CALL ADDR OF SUB CALLING. 


SES OC1E 


Welvelvelvelelvelvervelvelye] 
bb be = he ee 
WONTON £Wwl-O 


Sy 


oe 
SD 


DO 
me 
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es Bacny ;CONVERT READ ADDR TO ASCII. 

RADOR 

- OR 















BRUTE SSE SPRL ER BSE SRRC ER Bsa 8 


ea a ee Ft aed mnie: 
: | RRB: OPEN : : S HERE. 
002720 17777 ERAN: MOV (5) +, ERRB Py ee ase. 
the 199725 177764 NE Bada “ ine F NOT T TERMINATOR 
aR 3 ERRNC: ae : Bee See - _tAL REQUIRED. 
maetiy. worl 19 OUTPUT ASCII MESSAEE ON TELETYPE PRINTER. 
(S)+,RO ; ADDRESS OF MESSAGE TO RO. 
D0875¢ asa: nove ree" vt iBhanehy gPeney TERMINATOR. . 
MS 7e2 000177 MOVE 8177,R1 ; 
000020 7, TYP: 
Heres RRO ; TERMINATOR CHAR. DONE. EXIT. 
000045 TYPC: enPe evs ,Ri :CHECK F 
pos778 oo0002 en 87 TYPO s Pranic Hef IN RI 
Grae 1iOes regis TPO HEY SiagPOSSAIFUPGAMSRE'FLag® "RENTER 
o3016 099015 TYPF : RTs 45,84, iO veer ena RETURN CODE TO Rl 
DO3026 : 2 TYPG: Ove - 2 Ri Rv bE CODE TO Ri. 
003032 009045 J R ty D 


TY 
;Syprou fre TO OUTPUT A SERIES oF ASCII MESSAGES ON TELETYPE PRINTER 


ce Fe 





MOV (S)+. TYPSB QTYPSB. 
typ ihe cx KF minat 
ogo. 000010 ore sity cB oR Fer NATOR oR. 
RY TERMINATOR, X1T 
003064 TPeB: OPEN ica ON fy OF veace GOES HE MERE 
Typs+2 :GO PROCESS NEXT MESSAGE 
; SUBROUTINE TO DELAY. 
YRO= petGY 
0030 000310 o00000 DLY i te b0 80 
093076 et £0 000000 pL: MOV #1000: + #0 ;DELAY COUNT TO OLYR1. 
003104 1777 LYB:  OEC OLYRI 
003110 BNE OL YB 
002112 177756 DEC OLYRO 
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OZTCED.P1l 


wo 
N 
~ 


SSSERERRERRARSER SRR ARR S SIS Seo Rese eT eee B 


: 
nv 
-O000~- 


ne 
= 
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BB3148 BB488E 


177770 
177764 
1777584 
177752 
177746 
177736 


177770 
000060 


1 
BS ip ow 
006000 
1 


af 


Kee 
woe 
fu 


8888 8 


oo 
00 


03 000005 
C4 


MACY11 30( 1046) 


ap0oi2 Bop 00001 


177770 


177742 


31-AUG-77 14:11 PAGE 20 


DLYA 


; EXIT 
SUBR nouthe TO INITIALIZE BINARY’ Oa Ag 


tNBINN: iy 
Vv 
RTI 


RIND: N 
P10: N 
PTl: N 
se 
oe 
ee 
MOV 
FOV 


jgnT SL SUB nageen OCTAL TO be. 


)+,RO REGS 
Mi teal Ri SET 8B Bee Pratt: ADOR. 
Vv ( CoAVERT 
Rov ; : DEVELOP ADOR’ oe" STORE 1ST CHAR. 
OACNVA: 
BIC #1?7770,R3 : ISOLATE LEAST SIGNIFI FICANT DIGIT. 
#60,R3 :C II. 
ith Rg oc) :ST SORE ASCII CHARACTER. 
b ae 
ROR RO 
aan ne AL, LG}TS: 
OACNVA Baar oan st Bone. 
R Toss ST Recs : 
i: xIT. 
gents suB.t T oftove VARIABLE ae YT a 
(S)+,R1 T"F DRESS 
o (5)4; i GET"TO™ ss 
MOV (S)+¢, ;GET C 
BMOVA: MOVB (1)4, (ed iM YTE 
pa ; MENT COUN 
BMOV H_IF_NOT DONE 
sToss ;REST REGS 
-EMT SUB TO CONVERT BINARY TO DEE A et: 
bE ves savoss. AVE GS. 
MOV a(5)+,R1 ;GET BINARY 
MOV BDECVAL RO ;ANNS SF DECVAL TO_RO 
MOV #TENPUR. Re * AODR 10 
MOV : SET uP FOR 5 CONVERSIONS. 
BOCNVA: CLR RY CLEAR RESULT 


VARIABLES 


Bie: FT9 


sEXIT. 

coun PATTERN SUBROUTINE 
pryeetd ;PREVIOUS BIN CHAR TO PT1 
RINO 

+6 
PT1 
PT1,PTO ;SAVE BIN CHAR IN PTO 
PT1,(5)¢ A 


SEG 0020 


02 





RY 


TcS - TCll TEST S MACYI11 30(1046) 31-AUG-77 14:11 PAGE 21 SEG 002: 
e a. we $ 
DZTCEL.P1l 31-AUG-77 14:08 
? BOCNVB: R :10 POWER FROM VALUE. 
386 {R464 BYE Bane AR TPMERcUccESSFUL 
an NC fon 33 a 
1 ee BOCNVC: ADD ora Sina | 5 e TRACTED VALUE. 
335 MOVB 4 tO of r9° 
a 7, TST (ese ; E QUER ADOR. 
336 1384 ORE BScnva i BONE MOTT 
12501 MOV (5)+,R1 :GET TO STORE ASCII. 
998 1 Vv (5)4 Re :GET @ ofc TS REQUIRED. 
I Re, RI ;STAR TH . 
1 4 BOCNVD: MOVB -(0),-(1) : TRANSFER C TER. 
100i DEC : DONE? 
1002 091378 NE BOCNVD BR IF NOT. 
1993 oss ; ES ORE REGS. 
1 I sEXIT. 
1005 023420 TENPWR: 10000. 
1 1750 1 90. 
1BRS 144 100. 
si “ 
1010 O46 p40 O40 DECVAL: .BYTE 040,040,040,040,040,040 
1011 0 o4 
iets 792 russ ESRRFRUTARE T° MERLGY BUREreR PE, FRO GL PRkBe PRGe rornrer 
iBia eteteteRs ney aste iL D VIA MONITOR? 
1015 001407 3 CORSTF :BR I fT. 
1018 2737 oo20s4 o00042 4 g,aev2 oR TPovEs 
1018 003446 012701 172000 nov #172000, Ri :172000 TO INITIAL TEST ADDR. 
1020 Bosses es CORSTF: MOV é Ri 317 TO INITIAL TEST ADDR. 
pst 1 1 aaa CORSTA: SUB Ss00RB RI i Le Ract FRon fest ADOR. 
1 4 4 ADO 00, (4) j REFERENCE TEST R. 
1 1 174306 MOV : C R id T RE AVAILABLE. 
1 76 010167 1 6 CORSTD: MOV Rl: RBFLIM :SET READ BUFFE PER LIMIT. . 
ides O0350e 1 010210 SUB sCODEND, R1 ; COMPU E AVAILABLE FER SPACE. __ 
10e6 0 i ROR RI ‘COMPUTE BUFFER 2k AD OR WRITE). 
1028 pose iS 1 000001 BIC BBITO Rl 
10e8 16 O1 167 175362 mov Ri, BFSIZE ;COMPUTED BUFFER SIZE TO BFSIZE. 
1031 I 010210 Abb aCODEND,R1 :COMPUTE WRITE BUFFER UPPER LIMIT. 
1032 O00 10167 175346 Vv Ri, WEFLIM :AND MOVE TO Wi : 
+033 33 013 OACNV :TYPEOUT HIGHEST TEST ADDR. 
1 49 
1036 4 
1037 003544 i04010 TYPE 

1038 46 907410 HADRM 

10 50 02 RTS PC jEXIT. 

1040 903552 O12e71— 003460 CORSTB: MOV #CORSTA, (6) : SE UP TRAP EXIT. 

104i O0355€ od000e ‘EXIT BUS ERROR TRAP. 

1O42 :EMT RANDOM NUMBER GENERATOR. NUMBER IS STORED AT LOC AFTER SUB CALL. 


TCS - TCll TEST S MACY11 30(1046) 31-AUG-77 14:11 PAGE 22 SEG 0022 
OZTCEO.P11 31-AUG-77 14:08 


RNGEN: V' 
a Rov wae Roe’ RO 


panna ao 
Beno 
Re RP2 


RPI, (S)+ ;STORE # AT LOC AFTER SUB CALL. 
sEXIT. 


ooo044 


- EMT INITIALIZE ROMGUM NUMBER GENERATOR. 
177re tremor: fey MERE Ah 
SELECT T SEQUENTIAL DECTAPE UNIT. 


3395770, SQDRVA 
ORV : PSbont TRANSPORT. 
SQDRV iT i RETURN. 
vy Than LECTE a 
SENT sus T area FeTect RANDOM sscvert (e 


Bray: OPEN is er 
177770 177770 8177770 RNDRVA ie AtT 


77764 MOV RNORVA, RND 
177764 o00002 pe eh Uy q1 


Vv 
RNORVB: N O BE SELECTED. 
. RNORVV TLABLE FOR TESTING RETURN. 


;EMT SUB sfbnieM CLE CE Sek a F pi Tg SELECTED: op TESTING. 
‘a yorout} ELECTED. 


: I ft a air SUECESSFULLY SELECTED. 


SELORR: 
MOV cfr unt RED UNIT. 
003760 175130 git is E I MO ae TABLE. 


IF 
175120 V N A “SAVE UNIT Nun ER 
178113 TBS me UNIT NUMBER FOR LATER IO. 


ooo000e 


SGoRv? Ine 
SQORVA: BEL 


Endeowee 2h 


SELDRA: R 


-EXIT. 
ge UNTAB: .BYTE BITO,BIT1.B1T2, 8413 BiT4, BITS, BIT6,BIT7 
oo 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 


PEPE T ck, fb ini BSRERPANMEIA Sead RAO uiM ta RSet £53 


:;EMT SUB TO GENERATE RANDOM TRANSFER COUNT (XFRCNT) 





Ro 
mo 
a 

20 


ee ee ee ee eh eh PO eh eh hee bh eee NT 


DUNE SS SFA EGAASREIRRE ORE BOO NON PONS cis etn sane SSB IRREDR SS 
B BeSSSsse9 FPeeSes eee gTTe9 creas beens 
 BRES2RINS BOREAGR CRERLBESR WYSE RIM TASR = 


ae ee ee ee ee ee ee en ee ee be ee be be bw be he be be bs be ee be he he Bs be Be he bw he ee hs 


pong 30( 1046) 31-AUG-77 14:11 PAGE 23 SEG 0023 


059003 RNDXEA: i on ; naam a STORED HERE. 


ss 6A 177770 7 wn 


— 
| dl ond 





767 17776 es xf aye T NOT BE O. 

270 7 XFA,BFSIZE ; MBER AGAINST BUFFER SIZE. 
iSise8 <e a ROG XFA, XFRCNT ; 8° Tho THER e 
1o4050 XERSET : ; ERE ORM SUFFER AND BLOCK SETUP. 

s EMT TO SET ue RUEFER ROORES S AND FWO AND REV BLOCK NUMBERS 
VALUE R COUN 
016767 ett 1702 : Soe RPREAT: ;COMPUTE WRITE ADORESS. 
7 XFRCNT, 
tier Heh abe sug RERENT. Be ane hae 
? I 14 / 
750 XFRCNT, VRBLKN; T R OF BLOCKS IRED 
° oer 175006 — cLRg vABLEN, ‘$85 vie at ted REV MIN ars K NUMBERS 
7 7477 MOV a VFBLKN , 
1eoe> 1 1106 eatag Ch VEBLKN ;MAX FWD BL CK. 
lee aA Pn a Re 
agent SUB 1d FILL WRITE BUFFER with NUMBER OF DRIVE UNDER TES’. 
04006 VFLL: SAVOS 
16700 174744 MOV HAOOR. 
16701 174716 V UNT N Ri 
16 74732 v XFRCNT, RB 
101 DRVFLA: MOV Ra (04 
1 os VFLA 
RTI EXIT 


se 

i, 

= : 

eri 

: 35° 
srk 
ae 
a 


174714 


174650 
174644 


ROF BBA , VF BLKN 


< 
- 
Pp 
Dx 
83 


oO 
WN 
F 
#% 


104015 : ; OM NUMBER. 
Boe7e7 17466 177770 “MPRA: BEEN vrei kn, RORBBA :RURBER ist Not. e SPALL R THAN YRBLKN 
161372 I P : SMAL ER. cEt ANO HER NUMBER. ; 
. 196 177762 001101 MP ROR BA, #1101 ; NUMBER NOT EXCEED 1191. 
16767 177752 174606 MOV RORBBA, BLKRO NEW BLOCK NUMBER TO BLKRG. 
16767 174602 174602 MOV BLKRO, BLKROS 
o00002 RTE EXIT 
sce gEMT SUB_TO FILL WRITE BUFFER WITH RANDOM DATA. 
004264 016700 174620 ” MOV WADDR , RO :GET STARTING ADOR. 


g 


5 


mma 8 
z 
Yd 


é 


ee he Pe 


L cnlapul gud aul spud spud spud and aol axed soul oud anal seed send sol anal anal seed oeed ood ool ood aol eel ool onl el el ed ee eee eee eee 


Und ooo Ue ee 
88 888988 $888 
SRYELS Ciweve Roee 
oe 


y 


_ 
<£ 
- 
<£ 


ae 


B25 
Bs 


: 


NW 


N 
N 


BELEK ESL S SE IRR PERO Ia lal? 
e 


tw 


Ses 


SEBS E GREE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ft 
— 
88 
oO 
on 
ovr 
Ww 





174612 


177772 


ooo000e 


000116 


174320 


174300 


L 
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anora: Rrenun PRONT Ri 1 TET Cae NUMBER 
RNOFLB: OPEN /NUMBER, 15  STOREQ HERE. 
e6b RIOFLB, (0)+ ; : R San. 
=e RNOFLA a NOT DONE. 





R 
-EMT SUB TO ISSUE DT 
STcOM: CLR COMND 








ves. 
He 00 BIT SET IN COMND? 


TA ; STATUS. 
FARO + BRROR: 60 Bit FAILED TO CAUSE CLEARING 

re mee ;OF READY AND/OR ERROR BIT(S). OR ILO 

TAT :BLOCK MISS, OR DATA MISS ERROR OCCURRED. 


STCOMB: AGD #2, (6) ;SET_UP_RETURN. 
R Per Steen sue. 
,EMT SUB TO STOP ALL DECTAPES. 


STPOT: #1i6,aTCCM ; s sat COMMAND . 
-EMT SUB TO CHECK FOR DECTAPE ERROR OR END ZONE. 
eKERZ: SAVS 
ST TCCM i ERROR 811 SET? 
1 KERZC :BR IF YES. 
g (S)+ :NO. SET UP OK EXIT. 
ERE: dates 
" R : :EXIT EMT SUB. 
CKERZC: TS aTcsT :ENOZ BIT SET? 
ent a} " CKERZA :BR IF YES. 
/ RRORN ;DECTAPE ERROR. 
FPCMSG 
DTERR 


STAT 


oR CKERZB 
:EMT SUB TO HANDLE FAILURE TO INTERRUPT. 
AGINTR: SAVSS 






ater “sit TEST S MACY11 30(1046) 31-AUG-77 14:11 PAGE 2S 
-Pl 


31-AUG-77 14:08 ' 
PRROHA iBEY TARE ERIC to INTERRUPT. 


FPCMSG 
aynrel 
ratss : 
CHECK EXPECTED DATA AEMI NS ACTURL DATA AND REPORT ERRORS. 
;CURRENT WORD NUMBER. 


SUNITN WADOR ;URIT ER A TO WADOR. 

serie! CKE ;PREVENT INCREMENT OF S/B ADDR. 
TCKK 

802 } DATCKE ;INDICATE DECREMENT OF ACT DATA. 

bat KK IND ' 

#¢s081, DATCKE ; INDICATE INCREMENT OF ACT DATA. 


~ 
fururufufurgy © 

et ee 
NONE Wr oO 


P= ae Oe 


SS VRRP 


OR, RO ;GET EXP DATA ADDR. 
& Rl ;GET Act TA_ADOR. 
TIN i CHE K F NT. 
TCK ;BR IF _N QUIRED. 
XFRCNT,R1 ;YES. COMPU OF ACT DATA. 
XFRCNT,R1 


a - 


DATCKA: 
1776S2 


DATCKB: : 
177634 DATCKC: CMP 3 : TA AND EXP DATA. 
ATCKD : 


. CONVERT WORD # TO DECIMAL ASCII. 


Te 


SEC 


— 


i le elelele 
=x 

=U 

IWnNN 


—>-Oorru 


; CONVERT EXP DATA TO ASCII. 


Te 
a 
e 
Oates 
Bis 
ae 
ee 
@ 
Bore 


CONVERT ACT DATA TO ASCII. 


38383838 
See ES 
ae 


; TYPE DATA ERROR MESSAGE. 


= 
eh 


R3 ;NT ERROR? 
DATCKH ;BR IF YES. 


ee ee eb be be ae Be a an ae ee Bn Be ee ee Pe ee Be ee bw pn be be Be Ps Bn he Be pe ee 


RATER Soe AERO ESS aka RRS ae RATERS 


8 
é 





NOe2 
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OZTCED.P11 31-AUG-77 14:08 
1267 004770 00S267 177554 parexe: INC DATKNT ; INCREMENT WORD # 
368 thee: : KG: Bee eB ; ONE CHECKING? 
ie omens fore Sow eg 
xI 

is jEnT SL SUB 0 CLEAR SPECIFIED AREA’ Et: o's. 

; R. 
ieee osnis Alsene me AY BERD gt BT = 
i523 osnie Boeaoe ge a BRE? or 1 
1378 : = 74 ; e NOT DONE. 

; 
1580 BgeRss bgae Bs 
lege gen, SUB_T TO vost AREA WITH BINARY Sout PATTERN. 
1s83 805358 bte708 1740S4 ;GET STARTING ADDR. 
1285 16701 17404% ey ; XFRCNT,R1 ;GET CO COUNT. 
158 Boeau2 3 g NFLB: ae ist Y YHORO fs OS TORED HERE . 
i i6 177772 MOV BINFLB, (0)+ ORE WOR 
ies esos brs ; Elen :BR IF NoT Done. 

tEXIT, 
1635 —-. so 1B. CHECK THAT WORD count 15 0, AND THAT TCBA CONTENTS 
1533 Abia, sug vit EteD CONTENTS. 
1 05062 essa 174006 MOV (S)+, TEMP GET EXPECTED ToBA CONTENTS. 
tise Bias Bitar 17271 ie, Re Ca ey 
390 005076 i04C OUNT NOT 0. TYPE 
Fe ate : i Fecr HONTENS TS OF TCWC AND TCBA. 

ts 

1 B05 1 a ite 
1304 ao1i8 : ra74 <e 
13e Bett o4000 f SCOPE 
1307 bos 2 gee777 173764 173670 cwceB: C P TEMP ,aTCBA : 188 AN AND EXPECTED TCBA SAME” 
308 ee 
1309 1 104013 ACNV :NO. CONVERT EXPECTED TCBA TO ASCII. 
1310 1 40 ENP 
: ip : 46 ATCBAS 

;TCBA DOES NOT MATCH EXPECTED 
i if i tre Fpense i TBA CONTENTS, TYPE EXPECTED TCBA, 
131 1 INCTC ACTUAL TCBA, AND TCWC. 
1 1 14 7640 Ces 
131 144 007474 BA 
1 1 005146 007457 CTCWC 
1 150 177777 - 
1 1 104000 COPE 
1321 154 4 CWCBC: RSTSS 
1322 005156 o00002 RTI EXIT. 





B03 


s sore 3011046) 31-RUG-77 14:11 PAGE 27 SEG 9027 


5 al ll aes a 
tae ee : ia ay Eee 
. ial iS AR cn. 


Bg 
8: 
we 
: 
wr 
é 
3 





BIT FROM SRCHM. 


com 
cay He :FPRUE,DO TO, ENABLE PUN. 


173840 

;FAILURE TO INTERRUPT. 
OOS266 @SRCHD, (6) exit Wren INT ——— OCCURS . 
173812 


i73S04 173546 


RECTION. 


004000 173432 Eff. ateon i‘: ‘ 2 Pas pot Sttacrie 


IT 
P9895 175 BB Bloor 
004000 173402 SRCF: IT #21, aTCon 
000073 STB Fito 

a 

T 


vo4o00 §=173462 


Tyavea i73cie 





HW) BLKe § WANTED* 
Oe a ara 
Vv. Ks WANT b° 


= be 0 a ee hn 2 be ee + Be ee as an Bee Pe Bae ae en ee ee ee ee ne Ps Pe Ps hw Bae ew hae Pw Bes Pew Bw Bo Be he Bs Bo Bee Bw Bo he Be Bs BB he Be Be Be 
. 
+ + 
a asa: } 4g 4s ge gs 4 de 
:) +4 4 4 





are: ee ae ° BAe On : EV Ke NOT WANTE 
i A. TED. EXIT. 
Q04000 173352 SRCREV: Bi? BJT11,aTCCM  ;REV T? 
004000 173342 SRCRVA: BIC wBiT1),a7COM i VERSE. SET TO FORWARD. 
378 004000 173332 SRCRVB: BIS SBITi1,OTCOM  :FORWARD. SET TO REVERSE. 


a 





-T 1s MACY]1 30(10%6) 31-AUG-77 14:11 PAGE 28 =a 
bStcen Bt ESS, Sauc-27 Tes : 
po0024 RCRVC: VCNT FIFTH REVERSAL ISSUED? 
> SRCRVC 8 REyeNT y 






:BR IF 
:YES. ERROR. SAVE STATUS. 


T 
v3 BLK S QT jf ouno WITHIN S TAPE 


T: .BY 
ong! Ht es 
> 73274 RD wud yo eR ean at Maite age ro COuRT. AND T IN TCwC 
i Ate ‘ v whe eC OON) Tour 


RG. 
M 88 
ubAb 





Sh 
, WROF RG 
BWROFRC ,aITCVTR 


ores T. 


538 


ee ee 


;FAILURE TO INTERRUPT. 
;HERE WHEN INTERRUPT OCCURS. 


encen + ae y SET? 
RF : 
; RRORS . 
; 


HOR COUNT ANC CURRENT ADDR. 
QUAL THIS. 


DOWD NKU LWT 










TALFuD?TE!D0, sorhn 
HF, RA} 
vate 'TE!D0, WROFRB 
HES WADFRA 

Fat REV! 1E!00, WROFRE 
HA WADFRA 

R 


= Os ee ee Oe ee b= ee Bee ass sw be Be ae Be ee be Bw ee Pe ae Bs Pn Pe ee Bae Bw Be ee be Bn Pe Be Be Oe Bo be ho Bw ho BO B= Pe Ph 


SEESESESLELSLSELELELSLELSELELELS 


PER BSS 


ae ait a ae CONTENTS. 


SEG 0028 


~4 
oO 
~w 


sta csi baa seats g 


5 


N 
—_ 


REREN PAAR 


SERRERED 


02 eh -8 s Pe : e e be be Be he be be be ee ae ee he ee BO hh be hw Bs he he Be he Be Pe he he ho Ph he Po eRe 


83 


DO3 


Wh TEST wont Sy 30( 1046) 31-AUG-77 14:11 PAGE 29 
Pil 31-AUG-77 14:08 SEG 0029 


a Ube Tak 1patse ROATR: ny ye all 


: oo Mino ave LAGLE TRANSPORTS. 


se KRE 
‘ ;SET UP TO REWIND @ TRANSPORTS. 
: 0, MRWNOB 










MRWNDB N ; M R 
MRWNOC : s AILABLE RETURN 
H 4 OR_REVE B, ke o. N 
MRWNDC R ; Me Reno TS? hit 
* RBuNDA ; F NOT. 
e Cc . EXIT. 
. TO Get QvAILABLE TRANSPORTS ‘68 hie CERRO. 
“(MOV 88. RO ;SET UP TO MOVE 8 TRANSPORTS. 
MFWDA: INC NF Oe 
¢ 8177770, MF WDE 
DRV ; SELECT TRANSPORT . 
MF WDB : N if 
MFWOC iT 1 ROT A + E RETURN. 
TCOM : 
'FuD 
MF WDC : RO e 8 TRANSPORTS? 
WOR : F NOT. 
AY 
ee xIT. 
,sereceentaceensnseneussensuscusbensuiausounsssassarsasassessarserserees 
; e 
XT ROUTINE ¢ 
TEST TI COUNT : 
; Seeanessuaseneeueesnsnsegaazenshucusesnanuseueneeseuseusssegzersrssnyes 
ger one? +S he sk THAT Soy sett A SPECIFIC TRANSPORT DOES NCT 
10 ta: — AV RO os T UP TO - ST TAPES 
BAe o eo 1778 CB 4 Be ARHIND ; WIND a pres. ‘ 
Bel Base? 7771 SR PC. MF :GET ALL BES VING FORWARD. 
1 7 o9004 oo0002 ‘oe 8177770,CC pee. TRANS - 
153 abot “= "i  TeawSpont Tre RETURN. 
00e 15s Rouges BETCOn : STOP cer ecto PRAHSPSRE, 
1 1270 7 MOV 87.R ;SET UP K OTHER 7 TRANSPORTS. 
00e 1 3 76 177760 000014 MOY CC.C Ee 8 of SNES JUST STOPPEE AND INCREMENT I7. 
144 267 booot CDA: INC ¢ 
OOE1SO O427E7 177770 oon00e BIC 8177770,CD 


—w 


Puaunaueo ater eter eg 


Ne 


+b bo bo Bs Bo pe Bo he Be 


WO NTU £Wfu-O 


UUTUT UU UT UD 


BRR R IANS 


= 0 bs eb bb = 0 be be be Bh bo be bo Be DB be Be he Bh Be Bs Be Be Be Fe Bo Be Os Bo be Bo Bh Bs Ph he Bo BO 


LUN 
TAEWMHOD 


E03 


f TEST S MACYL1 30(1046) 31-AUG-77 14:11 PAGE 30 SES 0036 ' 


eB CO: Rev 9 TReertet Nar 
Sh TCO ep TEC CeT TRANSPORT vi T ser. 
3 AY 
p00200 172604 + 1T7,aTcsT ; IT 
TATUS et eerie” 


;CONVERT @ OF UNIT STOPPED TO ASCII. 


— 
be 


2 
a2 


;$ST T IFIC UNIT RESULTED IN ANOTHER 
‘Aso or BPBING. 
30} CE: Rh + OR TF ONOT 7_UNITS” 
COA ies 
CF: Rg 3 TE tép ALL UNITS? 
sasssnetttCToneseeseensnsnnnee tts Eethinngunonssovonenenesensnnsers 
* o 
xT ROUT INE * 
AOR Trt cA 
I * 
o 


ggenaeeseesenscussccoveneunsunahnsueseensenaunaussansessssensestassees 
Seouent tay TEST. 


QUENTIALLY RE BATACER FROM Up aCH se Eo een UNTT Ss NUMBER . 
000400 172632 age “renga XFRCNT ae para ae TBeUkD 


B8e8i8 Ea 
* gee iNOMRER OF Ive T LECTED. 
177764 a Raabe "at ate Regen 


L NETS AVAILABLE WRITTEN” 


~ 
<£ 
OoO- 
—_ 
r= 
tf 
=m 
DID B08 
© 
2 


- 


; 
x 


oe 
ie 







oes 


C0. MOV 20. ,RO : NO AD BLOCKS. 
0000s 172536 MOV 8-1, BLKRO THF with arock 8° 
172532 AG: INC BLKRG — -“ 
AF fet, oat ee Sliet? Or Rene PAO THE NUMBER OF WORDS 
"ake above INTO ADOR "ee, IN LOC 
TOPDT TOP 
ATCKS et iy Me BT TO CHECK DATA SPECIFIED BY LOC RADOR 
; A WORD IN LOC UNITN. 
EC RO :D 
NE AG 
AK : SOF EL “dt perce WITH SELECTED UNIT'S NUMBER. 


oocte4 MOV s20.,F) cer UP TO WRITE 20 BLOCKS. 


Bg 
8: 


uw 
£ 


Nore ke eo LESS 


N 
Ww 


UNNI 
BIartoaarz 


& 


PREZ BES TRRI OR 


uy 
tS ew tbe 


FR EMCO CCUM I rn nn TTT TA Ir EH 


ro 


FO3 


TEST S MACYL1 30(1046) 31-AUG-77 14:11 PAGE 31 t 
31-AUG-77 14:08 8 Ons 
006 012767 177777 172500 MOV 8-1 BLKRG ;STARTING WITH BLOCK O. 
7 172474 AL: IN BLKR i 
4 1 LS tar :CALL WOATAF sue TO WRITE FWO THE # OF WORDS 
if LOCK RCNT, START INO FROM ADOR SET 
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TAF= 1 748 184 13 1660 1671 
TAR= $38 1 164 1 
TF 14238 
TR 74 14318 
WROFR S06 1 8 14 1430 14 1438 
RA 13988 1425 ite iisee 14378 
13028 1423 14278 14 143S# 
1 l4les 
l4els8 
WROF | 1415 i138 
WROFRG O0S62e2 1394 13 1397 14208 
WeTM = O000le 48a 
x = 000007 ri: 1469 14748 16 3 15188 1SS6 1S618 1561 
1p 1 as 198¢ 1 8 
XFRCNT 001106 408 67e8 1 #* lile 1113 1115 1338 
ig3 1683 139 1 ei* 1564 1589 1614s 1639# 
XFRSET= 104050 8 11 Se 156 1$90 1615 1640 1665 
KFROTT 3e 587 llils 
= 010eie gce* 338 395 397 403 419 4998 Sols 
94 le? 


1S98 


1224s 


S038 


1623 


1 


234 


1648 


1284 


iglis 
1155 


617 


1674 


1424 


1631 
1238 


626 


SES 0044 


1700 


1432 


16368 
1239 


306 
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OZTCED.P1l 31-AUG-77 14:08 CROSS REFERENCE TABLE oo MACRO NAMES 


1602 1627 16S2 1678 1704 


emer 5 a Se ee ee ee ee 
E 


2 $79 580 $81 S82 583 S84 ses S86 587 cse 
1 


ee st ER pss 
id 
TSTA e 1469 1 3 1SS6 1581 1606 1631 1656 
TSTAR es 1469 1$1 1SS6 1581 1606 1631 1656 1682 
WOTF ® 1322 ioe b0 1671 
WOTR es i896 164 1697 


- ABS. O10e2le 000 
ERRORS DETECTEC: 
RUN<Tites 84 
RUN-TIME RATIO 

CORE USED: a: 


0 
RF SOL DOC=DZTCED.P11 
8 SE 

“i? 


DOCUMENT PAGES: 45 


